colocando mais essa:
Public Function LactCl() As String' retorna a letra da celula ativa
Application.Volatile
Fimcel = ActiveCell.Address
LactCl = Mid(Fimcel, InStr(Fimcel, "$") + 1, InStr(2, Fimcel, "$") - 2) ' retorna a letra
End Function
dá até para fazer uma soma
=SOMA(INDIRETO(lactcl()&"3:"&lactcl()&linAtv())) vai somar da linha 3 até a a célula selecionada podendo dar sub totais
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 24/04/2014 5:49 pm